#!/usr/bin/perl

# Иванов Илья
# 23.11.2013

# ЗАДАНИЕ:
# Создать запрос для выделения текста, заключённого в кавычки.
# При решении задачи учесть, что текст может быть расположен на нескольких строках.


# РЕШЕНИЕ:
# Содержимое файла склеивает в одну строку (вместе с символом перевода строки).
# Найденные фрагменты текста выделяет скобками [], отбрасывая кавычки,
# и отправляет результат на стандартный вывод.

# ЗАМЕЧАНИЕ:
# Конкатенация строк в цикле низкопроизводительна. Нужен некий StringBuffer.

my $text;

while ($line = <>) {
    $text .= $line
}

$text =~ s/(\")([^\"]+)(\")/[$2]/g;

print $text;